home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / s13b2197.exe / plugins / lamelame.plg < prev    next >
Encoding:
Text File  |  1996-11-14  |  944 b   |  20 lines
  1. %lame1 = $token(1,32,%pluginfo)
  2. if %lame1 == 0 || %lame1 > 10 { echo %plugact -:[please enter a num from 1-10]:- | play stop }
  3. %lenchoose = $len(%lame1)
  4. %lenchoose2 = $len(%pluginfo) - %lenchoose
  5. %lamename = $right(%lenchoose2,%pluginfo)
  6. %lame2 = %lame1 - 1
  7. %lame3 = 10 - %lame1
  8. if %lame1 == 1 { %lameinfo = isnt very lame at all }
  9. if %lame1 == 2 { %lameinfo = is not to lame }
  10. if %lame1 > 3 && %lame1 < 5 { %lameinfo = is pretty lame }
  11. if %lame1 == 5 { %lameinfo = is half lame }
  12. if %lame1 > 6 && %lame1 < 7 { %lameinfo = is lame }
  13. if %lame1 == 7 || %lame1 == 8 { %lameinfo = is very lame }
  14. if %lame1 == 9 { %lameinfo = is incredibly lame }
  15. if %lame1 == 10 { %lameinfo = is the king of the lamers }
  16. %lamemeter = > $+ $str(%lame2,-) $+ ! $+ $str(%lame3,-) $+ <
  17. %lamemeter = $remove(%lamemeter,$null)
  18. msg %plugact -:[ $+ %lamename lame-o-meter]:- %lamemeter -:[ $+ %lame1 $+ ]:- -:[ $+ %lamename %lameinfo $+ ]:-
  19. unset %lame*
  20.